    real*8 x,y,z,ValueInPoint3D,vv
    integer searchElement3D
    dimension vv(8)

    do i=1,nodesCount2D
        x = 0.d0
        y = vertex2D(1,i)
        z = vertex2D(2,i)
        nEl = searchElement3D(vertex3D,nVer3D,x,y,z,nodesCount3D,elemsCount3D)
        do j=1,8
            vv(j) = va(nVer3D(j,nEl))
        enddo
        a0(i) = ValueInPoint3D(vv,vertex3D,nVer3D,x,y,z,nEl)
    enddo
    call writeToFileDouble(vn2d_dat,a0,nodesCount2D)